#Region "Imports"
Imports System.IO
#End Region
''' <summary>
''' A simple log class for testing purposes
''' </summary>
''' <remarks></remarks>
Public Class ClsLog
#Region "Private members"
    Private _log As StreamWriter
#End Region
#Region "Properties"
    Public ReadOnly Property Stream() As StreamWriter
        Get
            Stream = _log
        End Get
    End Property
#End Region
#Region "Constructors"
    Public Sub New(ByVal logname As String)
        _log = New StreamWriter(logname, False)
        _log.AutoFlush = True
    End Sub
#End Region
#Region "  Public Methods"
    Public Sub Close()
        If Not _log Is Nothing Then
            _log.Close()
        End If
    End Sub
#End Region
End Class
